<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%option explicit%>
<%
Dim RZ_IN
RZ_IN=1
%>
<!--#include file="../conn.inc.asp" -->
<!--#include file="admin_inc/admin.function.asp" -->
<!--#include file="admin_inc/admin.sqlfunction.asp" -->
<%
checkadmin(1)
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<link type="text/css" href="style/style.css" rel="stylesheet" rev="stylesheet"/>
<script type="text/javascript" language="javascript" src="admin_js/common.js"></script>
<script type="text/javascript" language="javascript" src="admin_js/net.js"></script>
<title>友情链接列表</title>
</head>
<body>
<div id="prevAD" style="position:absolute;display:none; left:50px; top:100px;background:#FFFFFF;border:#6699FF 1px solid; color:#134360; padding:6px;"></div>
<div class="addrecord"><ul><li><a href="friendlink_add.asp">添加友情链接</a></li></ul></div>

<form name="rzform"  id="rzform" action="batch_delete.asp" method="post">
<input type="hidden" name="listtype" value="friendlink"/>
<table  cellspacing="0" cellpadding="0" class="table_800">
<tr>
<th class='tdcenter'>选择</th>
<th class='tdcenter'>ID</th>
<th class='tdcenter'>网站名称</th>
<th class='tdcenter'>网址</th>
<th class='tdcenter'>LOGO</th>
<th class='tdcenter'>描述</th>
<th class='tdcenter'>排序</th>
<th class='tdcenter'>操作</th>
</tr>
<%
dim page,sql,MyPage,rs,ad_type,theadtype
page=GetIntQueryString("page")
sql="select * from c_friendlink order by id desc"
if page<=1 then
page = 1
end if
Set MyPage = New RZPage
MyPage.SetSQL = sql
MyPage.PageSize = 20
MyPage.SetCss_PreNext="nextprev"
MyPage.SetCss_NumPage="pagenum"
MyPage.SetCss_CurrentPage="currentpage"
Set rs = MyPage.GetRS()
dim i
For i=1 To MyPage.PageSize
If Not rs.EOF Then 
%> 
<tr  class="row">
<td class='tdcenter'><input type="checkbox" name="id" id="id" value="<%=rs("id")%>" onclick="chkRow(this);"/></td>
<td>
<%=rs("id")%>
</td>
<td class='tdcenter'><%=rs("name")%></td>
<td><a href="<%=rs("url")%>" target="_blank"><%=rs("url")%></a></td>
<td><%If rs("logo")<>"" then%><a href="<%=rs("url")%>" target="_blank"><img src="<%=rs("logo")%>" alt="<%=rs("name")%>" border="0" width="88" height="31"/></a><%End If %></td>
<td class='tdcenter'><%=rs("description")%></td>
<td class='tdcenter'><%=rs("theorder")%></td>
<td class='tdcenter'>
<a href="friendlink_add.asp?id=<%=rs("id")%>"><img src='images/modify.gif' alt='修改' border='0'/></a>&nbsp;<a href="friendlink_delete.asp?id=<%=rs("id")%>" onclick="return confirm('您确定要删除吗？');"><img src='images/delete.gif' alt='删除' border='0'/></a>
&nbsp;
</td>
</tr>
<%
rs.Movenext
Else
Exit For
End If
Next
%>
<tr class="row">
<td colspan="8" class="tdcenter">
<input name="selectall" type="checkbox" id="selectall" value="" onclick="selectAll();" />全选&nbsp;&nbsp;&nbsp;<input type="button"  class="btn" name="del" onclick="deleteselect();" value="批量删除"/>
</td>
</tr>
</table>
</form>
<div id="bottompage">
<%MyPage.ShowPage()%>
<span class="recordcount">
<%MyPage.ShowPageInfo()%>
</span>
</div>
</body>
</html>
